prolog './g100s.ijs'
NB. +/\. B --------------------------------------------------------------

(20$1) -: +/\._20{.1
(>:i.-20) -: +/\.20$1

plus=: 4 : 'x+y'

f=: 3 : '(+/\. -: plus/\.) y ?@$ 2'
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x


NB. +/\. I --------------------------------------------------------------

(2!>:i.20) -: +/\.&.|. i.20

plus=: 4 : 'x+y'

(+/\. -: plus/\.) x=:1 2 3 1e9 2e9
(+/\. -: plus/\.) |.x

(+/\.   -: plus/\.  ) x=:_1e4+?    23$2e4
(+/\.   -: plus/\.  ) x=:_1e4+?4   23$2e4
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=:_1e4+?7 5 23$2e4
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x

(+/\.   -: plus/\.  ) x=:_1e9+?    23$2e9
(+/\.   -: plus/\.  ) x=:_1e9+?4   23$2e9
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=:_1e9+?7 5 23$2e9
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x


NB. +/\. D --------------------------------------------------------------

(2!>:i.20) -: +/\.&.|. [&.o. i.20

plus=: 4 : 'x+y'

(+/\.   -: plus/\.  ) x=:(2^_8)*_1e4+?    23$2e4
(+/\.   -: plus/\.  ) x=:(2^_8)*_1e4+?4   23$2e4
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=:(2^_8)*_1e4+?7 5 23$2e4
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x


NB. +/\. Z --------------------------------------------------------------

(2!>:i.20) -: +/\.&.|. [&.j. i.20

plus=: 4 : 'x+y'

(+/\.   -: plus/\.  ) x=:j./(2^_8)*_1e4+?2     23$2e4
(+/\.   -: plus/\.  ) x=:j./(2^_8)*_1e4+?2 4   23$2e4
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=:j./(2^_8)*_1e4+?2 7 5 23$2e4
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x

'domain error' -: +/\. etx 'deipnosophist'
'domain error' -: +/\. etx ;:'sui generis'
'domain error' -: +/\. etx u:'deipnosophist'
'domain error' -: +/\. etx u:&.> ;:'sui generis'
'domain error' -: +/\. etx 10&u:'deipnosophist'
'domain error' -: +/\. etx 10&u:&.> ;:'sui generis'
'domain error' -: +/\. etx s:@<"0 'deipnosophist'
'domain error' -: +/\. etx s:@<"0&.> ;:'sui generis'
'domain error' -: +/\. etx <"0@s: ;:'sui generis'





epilog''

